############Exercicios 5##################
#5.1
esaligna= read.csv("esaligna.csv", as.is=TRUE)
esaligna
mfrow=c(1,2)
#legenda nos eixos, ticks para dentro, eixos formato "L"
plot(esaligna$dap~esaligna$ht,xlab="ht(m)", ylab="dap(cm)", bty="l",tcl=0.3,cex=1.5)
#titulo informativo
mtext("Dimetro da altura do peito (cm/m)",side=c(3),at=16,cex=1.5,family="serif")
#Tamanho das fontes maiores
par(cex.lab=1.5, cex.axis=1.5)

#5.2
esaligna= read.csv("esaligna.csv", as.is=TRUE)
esaligna
head(esaligna)

#grafico numero 1
mfrow=c(1,2)
boxplot(esaligna$dap~esaligna$talhao, xlab="Talho", ylab="DAP(cm)")

#grafico numero 2
#media e uma barra de desvio padrao do dap para cada talhao

dap.tal.m=by(esaligna[,4],esaligna[3],FUN=mean) 
dap.tal.m  
boxplot(dap.tal.m)

#para colocar as letras
text(locator(2),"a","b", cex=1.3)

##5.3
exercicio3= read.csv("exercicio3.csv", header=TRUE)
exercicio3

par(mfrow=c(1,2))  
plot(exercicio3$y1~exercicio3$x1,xlab="Log(Patch size)(ha)", ylab="Euclidean distances",xlim=c(0.5,2.2), ylim=c(0,3),cex.axis=0.7,cex.lab=0.8,pch=17, cex=1,mgp=c(1.3,0.1,0))
par(bty="l") 
par(tcl=0.2)  
par(family="serif")  

#para adicionar a reta
model<-lm(exercicio3$y1~exercicio3$x1)
abline(model,lwd=2)

#grafico 2 
boxplot(exercicio3$x2~exercicio3$y2,ylim=c(0,3),cex.axis=0.7,cex.lab=0.8, outline=F,mgp=c(1.3,0,0),names=c("Small", "Medium \n Edge", "Medium \n Interior", "Large \n Edge", "Large \n Interior", "Control"))
par(bty="l") 
par(tcl=0.2) 
par(family="serif")   

#adicionando os *s
mtext("a",3,at =-4.068392,-0.880107)
mtext("b",3,at =6.206521,-0.970428)
mtext("*",3,at =1.001019,-0.952364)
mtext("*",3,at =2.021705,-0.970428)
mtext("**",3,at =3.076415,-0.988492)
mtext("*",3,at =4.029056,-0.970428)
mtext("***",3,at =5.049743,-0.988492)

